home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4961 / stos_sou.rce / disk.bas (.txt)
Atari STOS Basic  |  1987-04-21  |  1KB  |  33 lines
  1. 10 REM A simple disk utility.
  2. 100 MENU$
  3. 110 REM ****** Set up the screen for action ******
  4. 120 CLS
  5. 130 REM ****** Turn on menus ******
  6. 140 MENU
  7. 150 CURS
  8. 160 ON
  9. 170 GOTO
  10. 20 REM Written in STOS by J.Davidson for Power.
  11. 200 REM ****** Menu fuctions ******
  12. 210 VARNAME
  13. 211 IF
  14. 212 IF
  15. 213 IF
  16. 214 IF
  17. 215 IF
  18. 220 PRINT
  19. 230 PRINT
  20. 240 VARNAME
  21. 250 PRINT
  22. 260 PRINT
  23. 270 IF
  24. 280 PRINT
  25. 30 REM Do what you like with it, it's free.
  26. 40 REM ****** Set up the menus ******
  27. 50 MENU$
  28. 5000 PRINT
  29. 60 MENU$
  30. 70 MENU$
  31. 80 MENU$
  32. 90 MENU$
  33.